home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / stos / stos_50 / convert.bas (.txt) < prev    next >
Atari STOS Basic  |  1985-11-19  |  21KB  |  80 lines
  1. 10 REM ------------------------------
  2. 100 VARNAME
  3. 1000 CURS
  4. 10000 VARNAME
  5. 10005 LOCATE
  6. 10010 VARNAME
  7. 10015 VARNAME
  8. 10020 VARNAME
  9. 10025 IF
  10. 10030 IF
  11. 10035 IF
  12. 10040 IF
  13. 10045 IF
  14. 1005 ON ERROR
  15. 10050 IF
  16. 10055 IF
  17. 10060 GOTO
  18. 10065 INC
  19. 10070 DREG
  20. 10075 VARNAME
  21. 10080 VARNAME
  22. 10085 IF
  23. 10090 VARNAME
  24. 10095 VARNAME
  25. 1010 IF
  26. 10100 IF
  27. 10105 IF
  28. 10110 VARNAME
  29. 10115 VARNAME
  30. 10120 VARNAME
  31. 10125 VARNAME
  32. 10130 VARNAME
  33. 10135 VARNAME
  34. 10140 GOTO
  35. 10145 BELL
  36. 1015 IF
  37. 10150 LOCATE
  38. 10155 LOCATE
  39. 10160 LOCATE
  40. 10165 FOR
  41. 10170 IF
  42. 10175 IF
  43. 10180 VARNAME
  44. 1020 GOSUB
  45. 10200 IF
  46. 10205 RETURN
  47. 1025 VARNAME
  48. 10297 REM ----------------------------
  49. 10298 REM    Loads original program
  50. 10299 REM ----------------------------
  51. 1030 CLW
  52. 10300 ON ERROR
  53. 10305 ON ERROR
  54. 10310 ON ERROR
  55. 10315 ON ERROR
  56. 10320 CLW
  57. 1035 LOCATE
  58. 10350 CLW
  59. 10355 LOCATE
  60. 10360 CLW
  61. 10370 CLW
  62. 1040 ON ERROR
  63. 1045 CLW
  64. 105 VARNAME
  65. 11 REM    FLOAT CONVERSION ROUTINE
  66. 110 VARNAME
  67. 1100 CLW
  68. 1110 CLW
  69. 12 REM 
  70. 13 REM Changes 1.01 DOUBLE precision
  71. 14 REM   constants to 1.02 SINGLE
  72. 15 REM   precision, much faster.
  73. 16 REM ------------------------------
  74. 200 KEY
  75. 205 IF
  76. 210 VARNAME
  77. 9997 REM ----------------------------
  78. 9998 REM      Conversion routine
  79. 9999 REM ----------------------------
  80.